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000000 
000000 



000404 



. TITLE TSKM2I) 

. ENABL LC 

. DSABL GBL 

. PSECT TSKM2D 



SUBt8/» OnC€?~ i 'Ori,iy code? 



SKM2D: 



TSKM2D is the portion of TSKMON that performs system initialization 
code that is executed only once each time the system is started. 
The first job to enter TSKMON is the one that executes this code. 

Copyright 1988. 

S&H Computer Systems* Inc, 

Nashville. Tennessee 

Macro calls 

. MCALL . LOOKUP, . CSTAT, . CLOSE 
Global definitions 

. GLOBL KM I NIT 

Global references 

. GLOBL KMONCE, EXCJOB, DOSCHD, CXTRMN, MNUAOT, VMNUAO 
, GLOBL NUMBEV, PNAME, HANDSK, HANENT, DMYBEV, SYNAME 
. GLOBL SITE, SPLND, CSIBUF, TSX5IT, PROFLG 

Local definitions 

PNPTR = 404 ; Fixed offset to cell holding offset to PNAME 

Define macro to encrypt a text string 

. MACRO ENC TEXT 

. IRPC X, <CTEXT> 

.BYTE -<"X> 

. ENDR 

. ENDM ENC 
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System once only code 

. 3BTTL KMINIT - System once only code 



000000 010046 

f\ n t^L »•* Jti f\ r-t j v-V J Jt J 

uuuuue: UlUlttt 

000004 010346 



This routine is called once each time the system is restarted by the 
first job to enter fcmon. That job has disabled the scheduler by putting 
its own job index into EXCJOB so that this code has a chance to execute 
before any other job can get started. 

On entry, Rl and EXCJOB contain the job index 

On exit, EXCJOB is cleared, re-enabling the job scheduler 

j Save registers 



KMINIT: MOV 
MOV 
MOV 



RO, -<SP) 
R 1 , - ( SP ) 
R3, -(SP) 
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000012 


162701 


000003 


9 


000016 


001413 




10 


000020 


005000 
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000022 


071027 


001717 


12 


000026 


005701 




13 


000030 


001004 




14 


000032 


010001 




15 


000034 


020127 


000005 


16 


000040 


101402 




17 


000042 


012701 


000001 


IS 


000046 


012700 


000123 


19 


000052 


074001 




20 


000054 


110167 


0000000 



; Set 


max # 


jobs that can 


; Th i e 


> i s se 


>t 


in TSNAME d 


i 3 + 


maxjob*975. If max.j 


J 

SETMXJ: 










MOV 




#MNUAOT, Rl 




SUB 




#3, Rl 




BEG 




11* 




CLR 




RO 




DIV 




#975. , RO 




TST 




Rl 




BNE 




1* 




MOV 




RO, Rl 




CMP 




Rl,#5 




BLOS 




11* 


1$: 


MOV 




#1,R1 


11*: 


MOV 




#123, RO 




XOR 




RO, Rl 




MOVB 




R 1 , VMNUAO 



be logged on at one time, 
uring the distribution process to be 
ob - O, then there are no restrictions. 



Get lightly encrypted max # jobs 

Remove offset 

If no restrictions, skip divide 

set for divide 

Remove factor 

Shouldn't be any remainder 

If there is, then # is invalid 

Get maxjob into Rl 

Should be O 5 for micro 

Br if in valid range <0-5) 

If out of range, this becomes 1 user 

Set for XOR 

Encrypt max # jobs again 

Set re-encrypted maxjob into TSGEN 
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6 000060 

7 000060 

8 000064 

9 000070 

10 000074 

11 000076 

12 000102 

13 000106 
14 

15 
16 
17 
IS 
19 

20 000110 

21 000116 

22 000122 

23 000130 

24 000132 

25 000136 
000140 
000144 

28 000146 

29 000152 

30 000172 

31 000174 

32 000214 

33 000216 

34 000222 

35 000224 
36 

37 
38 
39 
40 

41 000230 

42 000232 

43 000234 
44 

45 000236 

46 000244 

47 000250 



26 
27 



016701 
062701 
016100 
060001 
012700 
162700 
060001 



016767 
016703 
026327 
101445 
016300 
001442 
020027 
001437 
010067 

103424 

103410 
016700 
005200 

010063 



060103 
010013 
160103 



162703 
002324 



Set table of device handler disk block numbers (HANDSK). 
Determine virtual address of this job's RMON HANDSK table 



SETHBT: 



OOOOOOG 

000002 

000404 

OOOOOOG 
0000000 



MOV CXTRMN, Rl 

ADD #2, Rl 

MOV PNPTR<R1),R0 

ADD RO, Rl 

MOV #HANDSK, RO 

SUB #PNAME, RO 

ADD RO, Rl 



; Get virtual address of our own RMON 

, CXTRMN points to VECBAS, bump to MONVEC 

iGet offset to RMON PNAME table 

virtual address of RMON PNAME 

HANDSK address 

offset from PNAME to HANDSK 

virtual address of RMON HANDSK 



; Convert to 
;Get kernel 
>Get kernel 
i Convert to 



OOOOOOG 000270 
OOOOOOG 
OOOOOOG 000002 

OOOOOOG 

OOOOOOG 

000236 



000176 
OOOOOOG 



ooooo; 



Scan through kernel device tables to correct the HANDSK table of 
handler block 1 offsets from offsets relative to start of the handler 
file (1) required during TSINIT to offsets relative to the start of 
the disk which may be required later by utilities. 

ce name into filspc 

last device loaded 
3* CMP HANENT<R3>, #2 ; Does this device have a handler file? 

jnore handler 
tame 
ity device name 

name? 

lore dummy device entries 
device spec 

channel to handler file 

if can't find handler file 
tel information 
■or but close file 

disk block number of handler 

oc k 1 
ice tables 

Now, the simulated RMON of this job got a copy of the system tables 
as set up during TSINIT, which still have the relative block numbers* 
so we need to correct our own tables also. 

; Index to current HANDSK entry address 

, Correct our own copy 

; Convert back to current device index 

6$: .CLOSE #1 ;Close channel to handler file 

7$: SUB #2, R3 , Drop down to next device index 

> Repeat through entire device table <numdev-0) 



MOV 


SYNAME, DEVSPC 


Set boot devi 


MOV 


NUMDEV, R3 


Get index of 


CMP 


HANENT<R3>, #2 


Does this dev 


BLOS 


7* 


Br if not, ig 


MOV 


PNAME <R3>, RO 


Get handler n 


BEQ 


7* 


Ignore if emp 


CMP 


RO, #DMYDEV 


Dummy device 


BEQ 


7* 


Br if so, ign 


MOV 


RO, FILNAM 


Put name into 


. LOOKUP 


#AREA, #1,#DEVSPC 


; Try to open 


BCS 


7* 


Ignore device 


. CSTAT 


#AREA, #1, #INFO 


Ask for chann 


BCS 


6$ 


Ignore on err 


MOV 


INFO+2, RO 


Get starting 


INC 


RO 


Bump up to bl 


MOV 


RO, HANDSK (R3) 


Set into devi 



need t 


o correct 


ADD 


R1.R3 


MOV 


RO, <R3) 


SUB 


R1,R3 


. CLOSE 


#1 


SUB 


#2, R3 


BGE 


3* 
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020027 


000015 


13 
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001405 
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UcwOc. / 


0000 5 50 
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103002 




16 
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110023 




17 
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000316 


020327 
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23 


000322 


101002 




24 


000324 


112723 


000040 


25 


000330 


112723 


000200 
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27 
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29 


000334 


012700 


000432 ' 


30 


000340 


104375 




31 









Initialize site name string in bpool overlay 



Was the spooling system included? 

Skip if not (overlay probably not loaded) 

Point to intermediate buffer in context block 

Get ptr to encrypted site name in Rl 

Get next char in site name 

Decrypt it 

or 200 is done 

Carriage return is also end 

Also truncate at max string length 

; Keep thi s char 

/Loop thru site name string 

Body of site name is moved* make sure it is at least 1 char long 
and is terminated with a 200. 

'*: CMP R3, #CSIBUF ;Did we get anything? 

; Br if so 

i Set in 1 space char if site name is empty 
3*: MOVB #200, <R3)+ > And always terminate string 
j 
• Now call emt in TSSPL2 to copy site name into flag page overlay 



SET 


SIT: 








TST 


#SPLND 






BEG 


DONE 






MOV 


#CSIBUF, R3 






CALL 


PIKSIT 




1$: 


MOVB 


<R1)+,R0 






NEG 


RO 






BLE 


2* 






CMP 


RO, #15 






BEG 


2* 






CMP 


R3, #CSIBUF+45. 


i 




BHIS 


2* 






MOVB 


RO, <R3) + 


i 




BR 


1* 


> 



CMP 


R3,#CS I BUF 


BHI 


3* 


MOVB 


#40, (R3) + 


MOVB 


#200, <R3)+ 



MOV #SETSTN, RO 
EMT 375 



jPoint to emt arg block to 
; Set site name 
i Ignore errors 
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000344 


012601 
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012600 




a 
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105067 


000000G 


10 


000354 


4. W w^WW t 


000000G 


li 
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10 5267 


OOOOOOG 


12 


000364 


000207 




J. 1.J 

14 


000366 






15 


000406 


075250 




16 


000410 


031066 




17 


000412 


000000 


100020 


IS 


000416 






19 


000432 


000 


126 


20 


000434 


000021 




21 









i F i n i 


sh 




J 

DONE: 








MOV 


<SP>+, R3 




MOV 


<SP>+, Rl 




MOV 


<SP)+,RO 


f 


CLRB 


KMONCE 




CLRB 


EXCJOB 




INCB 


DOSCHD 




RETURN 




AREA: 


. BLKW 


10 


DEVSPC : 


. RAD50 


/SY / 


FILNAM: 


. RAD50 


/HAN/ 




. RAD50 


/ TSX/ 


INFO: 


. BLKW 


6 


SETSTN: 


. BYTE 


0, 126 




. WORD 


21 



; Restore registers 



; Remember once-only code has been done 

; Re-enable job-scheduling 

;Make sure scheduler gets called 



.; General EMT arg block 

;Replaced with real boot device 

; Replaced from PNAME table 

; Should always be empty 

> CSTAT return information block 

iKMON EMT arg block 

i sub-function: set site name into TSSPL2 
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Select Pro or ordinary site name 



3 








4 








5 








6 








7 


000436 


010446 
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012701 


0000000 
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105767 
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001425 




000454 


005000 




15 


000456 


016705 


0000000 
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000462 


005004 




17 


000464 


071427 


000012 


18 


000470 


062705 


000060 


19 


000474 


110546 




20 


000476 


005200 
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000500 


010405 




22 


000502 


001367 
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000504 


012701 


000574 ' 


25 


000510 


112605 




26 


000512 


005405 




27 


000514 


110521 




28 


000516 


077004 




29 


000520 


105011 




30 








31 


000522 


012701 


000534 ' 


32 








33 


000526 


012605 




34 


000530 


012604 




35 


000532 


000207 
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40 
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42 
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45 
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Errors c 


fetected 


: 





Pro distributions don't have a "real" embedded site name* so if we are 
running on a Pro* we have to fake a site name; if not* just point to the 
real site name. 



PIKSIT: 



1*: 



i Now 



i And 



9*: 



MOV 
MOV 

MOV 

TSTB 

BEG 
' e r t in 

CLR 

MOV 

CLR 

DIV 

ADD 

MOVB 

INC 

MOV 

BNE 
hanq t 

MOV 

MOVB 

NEC 

MOVB 

SOB 

CLRB 
end by 

MOV 



MOV 
MOV 
RETURN 



R4, -<SP) 
R5, -<SP> 

#SITE, Rl 

PROFLO 

9* 

ternal license 

RO 

TSXSIT, R5 

R4 

#10. ,R4 

#'0* R5 

R5, -<SP) 

RO 

R4, R5 

1* 
he license numb 

#PSEND, Rl 

<SP)+,R5 

R5 

R5.. (Rl) + 

RO, 2* 

©Rl 
pointing to th 

#PROSIT, Rl 

<SP)+, R5 
(SP)+, R4 



i P o i n t t 
■, Are we 
; If not, 

number to as 
; Count n 
; Get sit 
; Set for 
; Split o 
i Convert 
; Save b i 
; Count a 
;Copy qu 
; Loop un 

er at the en 
» P o i n t t 
; Oet bac 
; Encrypt 
.; And han 
i Loop th 
i Termina 

e fake pro s 
; Point t 



o encrypted site name 
running on a Pro? 

that's all we have to do! 
: ji x 

umber of digits 
e license number 

divide 
ut low digit R5» quotient in R4 

least significant digit to ascii 
nary digit on stack 

digit saved 
otient for next divide 
til insignificant 
d of the fake site name 
o end of name string 
k ascii digit 

it 
g at string end 
ru all 
te string 
ite name string 
o encrypted site name 



Define a fake site name to be filled in for Pro systems 

PROSIT: 

. NLIST BEX 

ENC <PRO/TSX-Plus License # 999-TPS-> 

PSEND: . BLKB 6 ; Leave room for 5 digit number and terminator 

. EVEN 

. LIST BEX 

. END 



***• Assembler statistics 



Work file reads 
Work file writes 
Si ze of work file 
Size of core pool 
Operating system 





o 

9533 Words < 30 Pages) 
18176 Words < 71 Pages) 
RT -11 



Elapsed time: 00:00:07.11 
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TSKM2D - 


- System 


once-only 


code MACRO 


V05. 05 


Thursday 


19-Jan-8 


Cross re 


f erence 


table (CREF 


V05. 05) 








c 


1 I 4 

... V X 


4-29 


4-29 




4-31 


4-45 


4-45 




. . . V2 


4-29 


4-29 


4-29# 


4-29# 


4-31 


4-31 




AREA 


4-29 


4-31 


6~14# 








i 


CSIBUF 
CXTRMN 


1-28 
1-26 


5-7 
4-7 


5-14 


5-22 








DEVSPC 


4-20* 


4-29 


6-15*1 








i 


DMYDEV 

DONE 
DOSCHD 


1-27 

1-26 


4-26 

6-11* 










i 


EXCJOB 
FILNAM 


1-26 
4-28* 


6-10* 
6-16# 












HANDSK 


J. ""'"(St/ 




4-35* 








« 


HANENT 


1-27 


A— '"i r > 












INFO 


4-3 i 


4-33 


6-18# 










KMINIT 


1-22 


2-12# 
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KMONCE 
MNUAOT 
NUMDEV 


1-26 
1-26 
1-27 


6-9*' 

3-7 

4-21 










< 


PIKSIT 


5-8 


7-7# 












PNAME 


1-27 


4-12 


4-24 










PNPTR 


i — 32# 


4-9 










4 


PROFLG 
PROSIT 
PSEND 


1-28 
7-31 
7-24 


7-11 

7~-39# 

7-4;,'# 










i 


SETHBT 
SETMXJ 
SETSIT 


4-6# 
3-6# 
5-4# 












i 


SETSTN 

SITE 

SPLND 


5-29 
1-28 
1-28 


6-19# 

7-10 

5-5 










i 


SYNAME 
TSKM2D 
TSXSIT 


1-27 
l-5# 
1-28 


4-20 

7-15 
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VMNUAO 


1-26 


3-20* 










1 
















i 

















( 

i 
i 
< 



14: 57 Page S-l 



4-31# 4-31# 4-45 4~45# 









( 
I 
f 
I 

( 

I 
c 

f 



TSKM2D — System once-only code MACRO V05. 05 
Cross reference table (CREF V05. 05) 



Thursday 19-Jan-89 14:57 Page M-i 



. . i*hi 
. . CM2 
. . CM3 
. . CM5 
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CSTAT 
LOOKU 
ENC 



4-29 
4-29 
4-45 
4-29 
1-1S# 
1-18# 
1-1S# 
-3q# 
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S?<H Computer Systems* Inc. 
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